home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / videocap / sample.bas < prev    next >
BASIC Source File  |  1995-08-19  |  855b  |  35 lines
  1. 100 'ビデオ画像取り込み支援ソフトサンプルプログラム
  2. 110 'By 福地健太郎
  3. 120 '
  4. 130 'Rexファイルを機械語プロシジャ領域に読み込む
  5. 140 CLEAR ,,,,754-512
  6. 150 LOADM "videouty.rex",0
  7. 160 '
  8. 170 DEFINT A-Z
  9. 180 DIM BASEPIC(320*240*3-1),NEWPIC(320*240-1)
  10. 190 SCREEN 0
  11. 200 SCREEN@ 1
  12. 210 '
  13. 220 *START
  14. 230 CLS
  15. 240 INPUT "サンプリング枚数を入力してください。",PICNUM
  16. 250 INPUT "ゲイン調整値を入力してください。",GAIN!
  17. 260 CLS
  18. 270 SIMPOSE 3
  19. 280 WHILE INKEY$="" AND PTRIG(2)=0
  20. 290 WEND
  21. 300 FOR I=1 TO PICNUM
  22. 310     SIMPOSE 1
  23. 320     GET@A (0,0)-(319,239),NEWPIC
  24. 330     CALLM 0,VARPTR(BASEPIC(0)),VARPTR(NEWPIC(0))
  25. 340     SIMPOSE 3
  26. 350 NEXT I
  27. 360 SIMPOSE 0
  28. 370 CALLM 5,VARPTR(BASEPIC(0)),VARPTR(NEWPIC(0)),CINT(PICNUM*GAIN!)
  29. 380 PUT@A (0,0)-(319,239),NEWPIC
  30. 390 '
  31. 400 WHILE INKEY$="" AND PTRIG(2)=0
  32. 410 WEND
  33. 420 SCREEN 0
  34. 430 GOTO *START
  35.